set file for-r
set fptr [open $file r]
  while {1} {
    gets $fptr ln
    if {$ln ne ""} {
      set stocks [split $ln \t]
      set stocks [lreplace $stocks end end]
      puts [join $stocks]
    } else break
  }
close $fptr
